Top 10k strings from HiSoft Pascal 4T v1.7M - Turtle Graphics (1984)(HiSoft).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   4 SPOUT(CHR(20));SPOUT(CHR( PENSTATUS));SPOUT(CHR(21) );SPOUT(CHR(PENSTATUS));
   2 YCOR:=NEWY
   2 XCOR:=NEWX;
   2 XCOR,YCOR,HEADING:REAL;
   2 WRITE('Out of limits');
   2 TURTLE    
   2 SPOUT(CHR(17));SPOUT(CHR( 8));
   2 SPOUT(CHR(16));SPOUT(CHR( C))
   2 SETXY(127,87);
   2 PLOT(ROUND(XCOR),ROUND    (YCOR));
   2 PENSTATUS:INTEGER;
   2 PENSTATUS:=1
   2 PENSTATUS:=0;
   2 PENDOWN(6)
   2 NEWY:=YCOR+L*SIN(HEADING* 3.1415926/180);
   2 NEWX:=XCOR+L*COS(HEADING* 3.1415926/180);
   2 LINE1(ABS(X),ABS(Y),SGNX, SGNY)
   2 LINE(TRUE,ROUND(NEWX)     -ROUND(XCOR),ROUND(NEWY)- ROUND(YCOR));
   2 INLINE(1,0,3,#21,0,#58,   #DD,#7E,2,7,7,7,#5F,#7E,  #E6,#C7,#B3,#77,#23,#0B,
   2 INLINE(#FD,#21,#3A,#5C,#DD,#7E,2,#D7)
   2 INLINE(#FD,#21,#3A,#5C,   #DD,#56,2,#DD,#5E,4,#DD,  #46,6,#DD,#4E,8,#CD,
   2 INLINE(#FD,#21,#3A,#5C,   #DD,#46,2,#DD,#4E,4,#CD,  #E5,#22)
   2 INLINE(#FD,#21,#3A,#5C,
   2 HEADING:=HEADING+A;
   2 HEADING:=A
   2 FWD(R); TURN(1)
   2 CHECK(X,Y);
   2 CHECK(ROUND(X+XCOR),      ROUND(Y+YCOR));
   2 #FD,#CB,#01,#CE,
   2 #CD,#AC,#0E,#FD,
   2 #CB,#01,#8E,#F3)
   2 #78,#B1,#20,#EE);
   2  VECTOR(A,L:REAL);
   2  TURN(A:REAL);
   2  SPOUT(C:CHAR);
   2  SGNY:=-1 
   2  SGNX:=-1 
   2  SGNX,SGNY:INTEGER;
   2  SETXY(X,Y:REAL);
   2  SETHD(A:REAL);
   2  RIGHT(A:REAL);
   2  PLOT(X,Y:INTEGER);
   2  PENDOWN(C:INTEGER);
   2  PAPER(C:INTEGER);
   2  NEWX,NEWY:REAL;
   2  LINE1(X,Y,SX,SY:INTEGER);
   2  LINE(ON:BOOLEAN;X,Y:INTEGER);
   2  LEFT(A:REAL);
   2  INK(C:INTEGER);
   2  I:INTEGER;
   2  FWD(L:REAL);
   2  CHECK(X,Y:INTEGER);
   2  BACK(L:REAL);
   2  ARCR(R:REAL; A:INTEGER);
   2     (Y>175) 
   1 Created with Ramsoft MakeTZX